home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Czarina.dxr / Internal_18_New Behavior.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  427 b   |  25 lines
  1. property pix, pdown
  2.  
  3. on beginSprite me
  4.   px = 0
  5.   pdown = 0
  6.   timeout("playthis").new(1000, #playSound, me)
  7. end
  8.  
  9. on playSound me
  10.   if (pix < 3) and not pdown then
  11.     pix = pix + 1
  12.     puppetSound(4, member("remove statue piece"))
  13.   else
  14.     pdown = 1
  15.     pix = pix - 1
  16.     if pix = 0 then
  17.       pdown = 0
  18.       s = the ticks + 15
  19.       repeat while the ticks < s
  20.         updateStage()
  21.       end repeat
  22.     end if
  23.   end if
  24. end
  25.